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...Computing Available and Total Virtual and Real Memory. 

/*get vmdatai obtairunent of Information on Available Real 
and Virtual Memory */ 
get vindata(vm) 

~* struct vmdata *vm 

{ char buff [1024]; 

Int bufeiz = 1024; * rm .- m 

Char Vl{20}, v2[20], w3[20), w4[20); 

while <l){ 

int vl, v2; 



ifMinit access to eommands_done ) { 
/♦Initialization: CoimaKd vmstat is launched, and its output 

caught / acc « BB _to_cominands done - l; 

S^^'SS^iii-("V«it*t buff, Sbufei*, 



2)f 

} else { 

/*A new line* issued by cownand vnatat is read*/ 

cr.<» eag_j>open_nextline(fdvmconi, buff, *bufslz, 2>; 

A£ tC fdvmcoi { - sag_popen_getline("vmBtat 1«, buff, 
*bufsiz, 2); 

} 

/*line is examined and information recovered*/ 
' ssoanf(buff, »*s %s \9 %e", wl, w2, i*3, w4>; 

if (|strcmp(wl, ■kthr") && Istrcmp(w2, "Memory")) 

continue; . 

if (I6trcmp(wl, « "> latrcmp(w2, ■ >> 

continue; 

if <| B tromp(wl, "r*) letrcmpCw2, "b")) 

continue; 
ssaanf(w3, "%d«, &vl); 
sscanf(w4, "%d», fiv2); 

vm~>totrealHiem «= vmoonotant.totrealraem; . njlhli . 

/♦System Call psdanger returns Total Virtual Memory and Available 
virtual Memory*/ 

vro->totvlrtmem = pedanger(O) * 4/ 

vm->avrealmem - v2 * 4; 

vm->awirtmem » psdanger(-l) * 4; 

return (0); 

} 

} 

[0 0 3 3] ^P-fcXttSfc, *JffipJffia£f*©-R*Kl * [0 0 3 4] 
7 7 ^/VX^-XcDatHXr >y ^*frtr 0 Wlxf7 7° [» 2 ] 

Computing Available and Total Temporary File Space 

updtmpspace ( avtmpspace, tottmpspaca ) 
int * avtmpspace; 

int *tottmpepace ; 

* int aurnbtmpdev; 
char *ptdevlist; 
int i; 

struct statfs atatfebuf; 

curnbtmpdev - enim_dev ( ) ; 
if (curnbtttpdev > nbtiupdev) { 

nbtmpdev »• curnbtmpdev; 

if (tinpdevliat) 

(unsigned char *) free (tmpdevlist ) ; 

tmpdevlist - (char*) malloc( nbtmpdev *200); 

tmpdevno - (int *) malloc(nbtmpdev *sizeof < int ) ) ; 

if (curnbtmpdev > 0){ 

gat d*v(tmpdevli6t, tmpdevno); 
*av€mpspace - 0; 
♦tottmpspaoo = 0; 

for (i - 0, ptdevlist « tmpdevlist; i < curnbtmpdev; 
i++, ptdevlist +- 200) { 

int cr; 

/*Systero Call etatfs provides information on the Pile System*/ 
cr = statfs (ptdevlist, fcstatfsbuf); 



/♦conversion into Kb; multiply by 4*/ 
* avtmpspace +- 4 * statfsbuf.f bfree; 



* avtmpspace . _ 

*tottmpspace += 4 * Btatf sbuf .fblacks; 
) 

> 

) 



[0035] mmmwM(ow\c^itc?\j(o [003 6] 
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/•sysinfo and vminfo are AIX Kernel tables*/ 
/*The function get_syeinfo_and_vrainfo reads these 
tables from the Kernel Memory*/ 

get_sysinfo_andv»info (Ssysinfo, fivrainfo); 
tpgspgout s = ( double ) ( vminf o . pgspgouts 

ovroinf o . pgspgouts ) / < double ) inndinterval; 
trunque « (double) (sysinfo. runque - 
oyBinfo . runque) / ( double ) Irradlnterval ; 
t s wpque « ( doubl e ) ( Eye info, swpque - 
oaysinf o . swpque ) / ( double ) irminterval ; 

tuser - (double) (eysinfo.cpu{CPU_USER3 )/(double) 
inndinterval; 

tsystera = (double J (sysinfo. cpu[CPu_KERNEL]- 

osysinfo. cputCPU_KERNEL]/(doubla) inndinterval/ 

tidle -= (double) (sysinfo* cpu[CPu_lDLE]- 

o sysinfo. cpu [CPU_IDLE )-/( double ) Irmdinterval / 

tvait = ( double ) ( sysinfo . cpu [ CPUJfAIT ] - . 

osysinfo „ cpu [ CPU_wait j / (double ) Inndinterval ; 

tsuro «= tuser + tsyatam + tidle + twait; 
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[0037] ^o-bxttsfc, mmwmznx^z *fr&£fr*ft5o 

f)\ *X^t«fe^TS/£ffifflStlTt^X^-X©i* [0 0 3 8] 

Computing Proalloo space not used by jobs: 

slmej»->syste».preallocvirtmem - 0/ 
Ghjnem->systera.pr9alloctmpspace « 0; 

for (job - shraera-> first jb_started; job; job - job->next){ 
if ( job->requiredvXrtjn«m t& ( iob->reguiredvirtraem > 
job~>currentvirtm«m) ) { 

shmea->system.prGallocvirtnem +- (job- 
>requiredvirtmen - job->current vlrtmsm); 

if ( job->requiredtmpspace Sfc ( job->requiredtmpspace > 
job^>currentusedtrapspace) ) 

shraem->system.prealloct»pspaoe +» < job- 
>r squired trapspace - job->cUrrentusedtmp6pace ) ; 



[0 0 3 9]fftti, SR< (R + Ra) tioT^fi 30 [0 0 4 0] 
Sft, WT©3-H»^6a*o C»5] 
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LKMresourcescheck (LRMre sources) 

struct LRM re sources *LRMreaources ; 

* struct tiaeval tv; 
struct tinezone tz; 
struct systementry system; 

gattimeofday(fctv, *t* ) / 

shmgetaystemC fcsystem ) ; - 
if (LRMresources->reo;uiredtn»pepace > < system, avtmpepace - 
system, prealloctmpspace - system. reservedtmpspace) ) J 35 

return (0); 

if (LRMreeources ~>requiradvii:tinera > { fiyutom. avvirtmera - 1 
system- preallocvirtwera - system, reservedvirtmem) > I 36 

return (0); 

if (LRfireBOurces->expectedternination) ( 

int renains; 

int tl; 
double a, b; 

remains-J^resources->expectedtermination - tv.tv_sec; 
LRKresources">neededratocpu - 100.0 * LRMresources-> 
expectedepu / remains; 

tost hero with the current available cpu rats 

*/ 

LRHdbgprlntf (DBGALL,. "Maximum Elapsed time specif ied\n n ) / 

i.RHdbgprintf ( DBGAliL t ■ Remains: %d\n", remains) ? 

LRNdbgprxntf (DBGAX.L, "Heeded Hate of CPU: %f\n«, 
IiRMresources->neededratecpu> / 

LRMdbgprint£(DBGALL r "Extrapolated Available Bate 
of CPU: %d\n n , system. workingavepu); 

if (remains > 0 &fc LRMreaources~>neBdedratecpu <*= 

system . workingavepu) { , 

LRKdbgprintf (DBGAifL, "Rate of cpu is good enough\n M ); 
return (1);" 

> else i 

LRMdbgprintf (DBGALL, "Rate of CPU is too low\n»); 
if (remains < 0 | LRMresources-> needed re tecpu > 
1 00 . o • system, nbprocessors ) { 

LRHdbgprlntf (DBGALL, "There will not be enough 
free CPU to complete the job in time\n">; 
return (-1); 

) 

return (0); 

} else 

return (1); 

) 



[0 0 4 1 ] con-KSKKett, S5#3 5tf-H$Wft 

SD^MS (REMA 1 NS) ^^Sil^nSCP 
U$ (NEEDED RATE CPU) ilS^Lft 

S/7fiBt 1 KHSOTBS^IItf Rl^Ca**^ 
[0 0 4 2] uOct^tdbT, 5?3 7©^fTfc:&g&/* 

[0 0 4 3] iH#*^«l>5 5»6W>5gHfc|p|«l 

[0 0 4 4] 7>^fV7^X 1 
NAME : s j r 3V> K 

sj r-»»«lt3^H*A*U SYN0PT1 50 



Q U E 7 7 U h t % o 

[0 0 4 5] sjr [-p<mM^^V^-iym 
[- t <H}W477>r;bX^S] 
[-q] 
[-f] 
[-1] 
[-n] 
[-o] 

[- d *f\c£ OSiJnSf-i' ;>< > > 3 >>] 
[- c <m£tt* C P um«B#H>- e <ft*dffia«f 

mi 

[-c<a*cpim«i>] 

[- p v >ut>] 

[- r 0 I 1 I 2 I 3] 

[— v < e n v i ronment var i abl e > = 
< v a 1 u e >] 
[command a r g • • • ] 

[Ell] M««ig!S/XrAfeJ:tf, *J89J©»a*-iifli 
[0 2] *^Kct*M«Ba!t*tt«*M<0-lM** 



15 

1 mm 

2 Ta-y^xj 

3 lrm (p-#;WWSSD ir-^y 

5 j o r 

6 -hWf 

3 1 LRM^t'J 



(9) 1 1-16 15 0 4 

16 

* 3 2 LRM g u i 

3 3 LRM3>7-f+*al/->3>7 7^il/ 

3 4 LRM77°U^-^a>-r>^-7x-X 

4 2 s j r GUI 

4 4 SJR77^->a^^-7x-X 



[Hi] 



[0 2] 



FIG. 1 



*jt GUI 




FIG. 2 



